home *** CD-ROM | disk | FTP | other *** search
/ Ahoy: Best of 1985 / Ahoy_Best_of_1985_1986_Double_L.d64 / screen dump a'85 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  38 lines
  1. 49000 print"[147]":poke53280,9:poke53281,7
  2. 49010 fora=1to5:print:next
  3. 49020 printtab(10)"[149]screen dump utility"
  4. 49030 printtab(19)"by":printtab(12)"alfred j. bruey"
  5. 49040 printtab(12)"[144]for ahoy magazine"
  6. 49050 printtab(7)"(c) ion international inc."
  7. 49060 printtab(5)"[156]press 'f1' to dump this screen"
  8. 49070 geta$:ifa$<>"[133]"then49070
  9. 49080 gosub 50030
  10. 49090 print"[147]":poke53280,0:poke53281,6:fora=1to8:print:next
  11. 49100 print"  if you wish to use this utility as a  subroutine in your own"
  12. 49110 printtab(24)"[145]program, remove lines 49000 to 50030 and then add the"
  13. 49120 print"remaining lines to your own program."
  14. 49130 end
  15. 50000 :
  16. 50010 rem ** screen dump subroutine **
  17. 50020 :
  18. 50030 open4,4
  19. 50040 fori=1023 to 2006 step 40
  20. 50050 pr$=""
  21. 50060 for j=i+1 to i+40
  22. 50070 v=peek(j)
  23. 50080 if v>127 then 50130
  24. 50090 ifv<=31 or v>=96 then v1=v+64:goto50120
  25. 50100 if v>=32 and v<=63 then v1=v:goto 50120
  26. 50110 v1=v+128
  27. 50120 pr$=pr$+chr$(v1):goto 50190
  28. 50130 if v<=159 or v>=224 then v1=v-64:goto 50160
  29. 50140 if v>=192 and v<=223 then v1=v:goto 50160
  30. 50150 v1=v-128
  31. 50160 if len(pr$)=0 then pr$=chr$(18)+chr$(v1)+chr$(146):goto 50190
  32. 50170 ifright$(pr$,1)<>chr$(146)thenpr$=pr$+chr$(18)+chr$(v1)+chr$(146):goto50190
  33. 50180 pr$=left$(pr$,len(pr$)-1)+chr$(v1)+chr$(146)
  34. 50190 nextj
  35. 50200 print#4,pr$
  36. 50210 nexti:close4
  37. 50220 return
  38.